SPREP - Pacific Year of Climate Change 2009

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rs1__MMColParam rs1__MMColParam = "1" If (Request.QueryString("id") <> "") Then rs1__MMColParam = Request.QueryString("id") End If %> <% Dim rs1 Dim rs1_numRows Set rs1 = Server.CreateObject("ADODB.Recordset") rs1.ActiveConnection = MM_Con_sprep_STRING rs1.Source = "SELECT * FROM v_publication WHERE id = " + Replace(rs1__MMColParam, "'", "''") + " and flg_publish =true " rs1.CursorType = 0 rs1.CursorLocation = 2 rs1.LockType = 1 rs1.Open() rs1_numRows = 0 %> SPREP - Pacific Year of Climate Change 2009

Home

<%=(rs1.Fields.Item("n1").Value)%> > <%=(rs1.Fields.Item("n2").Value)%> > <%=(rs1.Fields.Item("n3").Value)%>

<%=(rs1.Fields.Item("title").Value)%>

<% '*********************************************** ' taka add (06-26-2003) start ' function: permission check '*********************************************** if trim(rs1.Fields.Item("img_file").Value) <> "" then image = " & rs1.Fields.Item(

" response.Write(image) end if 'end******************************************** %>

<%=(rs1.Fields.Item("memo").Value)%>

Published :<%=FormatDateTime((rs1.Fields.Item("dat_published").Value),vbLongDate)%>

<% '*********************************************** ' taka add (06-26-2003) start ' function: download link '*********************************************** if rs1.Fields.Item("flg_online").Value = true then response.Write("

Download and Link.

") response.Write("

") if trim(rs1.Fields.Item("att_file1").Value) <> "" then link = "" & rs1.Fields.Item("att_title1").Value & "" f_size = "(" & cstr(cint((rs1.Fields.Item("att_size1").Value)/ 1000)) & "Kb
" response.Write(link) response.Write(f_size) end if if trim(rs1.Fields.Item("att_file2").Value) <> "" then link = "" & rs1.Fields.Item("att_title2").Value & "" f_size = "(" & cstr(cint((rs1.Fields.Item("att_size2").Value)/ 1000)) & "Kb
" response.Write(link) response.Write(f_size) end if if trim(rs1.Fields.Item("att_file3").Value) <> "" then link = "" & rs1.Fields.Item("att_title3").Value & "" f_size = "(" & cstr(cint((rs1.Fields.Item("att_size3").Value)/ 1000)) & "Kb
" response.Write(link) response.Write(f_size) end if if trim(rs1.Fields.Item("link_title").Value) <> "" then link = "" & rs1.Fields.Item("link_title").Value & "" response.Write(link) end if response.Write("

") end if 'end******************************************** %>

<% '*********************************************** ' taka add (06-26-2003) start ' function: order link '*********************************************** if rs1.Fields.Item("flg_order").Value = true then response.Write("

Order

") response.Write("

") tmp1= "
Order this document now
" tmp2= "
Help about Ordering
" response.Write(tmp1) response.Write(tmp2) response.Write("

") end if %>

Contact Name:	"><%=(rs1.Fields.Item("contact_name").Value)%>
E-mail:	<%=(rs1.Fields.Item("contact_email").Value)%>
Phone:	<%=(rs1.Fields.Item("contact_phone").Value)%>
Fax:	<%=(rs1.Fields.Item("contact_fax").Value)%>

Pdfs not downloading?
If you get a blank or incomplete page from the PDF link, right-click the link to the PDF file and select "Save Target As..." Then save it somewhere easy to find, such as your desktop. You can then exit the web browser and open the local file. This is an acknowledged incompatibility between Adobe Acrobat and Internet Explorer.

Problème de téléchargement des fichiers pdf ?
Si vous obtenez une page blanche ou incomplète à partir d'un lien pdf, cliquez avec le bouton droit de la souris sur le lien et sélectionnez " enregistrer la cible sous " puis choisissez un emplacement facile à retenir tel que votre bureau. Vous pouvez ensuite fermer votre navigateur et ouvrir le fichier sur votre ordinateur. Ce problème est dû à une incompatibilité connue entre Adobe Acrobat et Internet Explorer.

<% rs1.Close() Set rs1 = Nothing %>